home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / Development / Feelin021015 / Examples / Fonts.e < prev    next >
Text File  |  2002-10-28  |  2KB  |  79 lines
  1. OPT PREPROCESS
  2.  
  3. MODULE 'feelin','libraries/feelin'
  4.  
  5. PROC main()
  6.    DEF c,w
  7.  
  8.    IF feelinbase := OpenLibrary('feelin.library',FV_VERSION)
  9.       c := ClientObject,
  10.          FA_Pen_Shine,     'c:64DC82',
  11.          FA_Pen_Fill,      'c:55AF64',
  12.          FA_Pen_Dark,      'c:0A460A',
  13.          FA_Pen_Text,      'c:FF0000',
  14.          FA_Pen_Highlight, 'c:FFFFFF',
  15.  
  16.          Child, w := WindowObject,
  17.             FA_Back,          FI_Fill,
  18.             FA_Window_Title,  'Feelin : Fonts',
  19.             
  20.             Child, VGroup,
  21.                Child, bandeau('Icons'),
  22.  
  23.                Child, HGroup, FA_Group_HSpacing, 1,
  24.                   Child, String_('Helvetica / 10',32),
  25.                   Child, ImageObject, DontChain, FA_Fixed,TRUE, FA_Image, '3:Loupe', End,
  26.                End,
  27.  
  28.                Child, bandeau('Default'),
  29.  
  30.                Child, HGroup, FA_Group_HSpacing, 1,
  31.                   Child, String_('Nokia / 13',32),
  32.                   Child, ImageObject, DontChain, FA_Fixed,TRUE, FA_Image, '3:Loupe', End,
  33.                End,
  34.  
  35.                Child, bandeau('Screen'),
  36.  
  37.                Child, HGroup, FA_Group_HSpacing, 1,
  38.                   Child, String_('Mario / 24',32),
  39.                   Child, ImageObject, DontChain, FA_Fixed,TRUE, FA_Image, '3:Loupe', End,
  40.                End,
  41.  
  42.                Child, Bar,
  43.  
  44.                Child, HGroup, FA_Group_SameSize,TRUE,
  45.                   Child, SimpleButton('`bSave'),
  46.                   Child, SimpleButton('`<6>Use'),
  47.                   Child, SimpleButton('`<8>Cancel'),
  48.                End,
  49.             End,
  50.          End,
  51.       End
  52.  
  53.       IF c
  54.          F_DoA(w,FM_Notify,[FA_Window_CloseRequest,TRUE,FV_Notify_Client,2,FM_Client_ReturnID,FV_Client_Quit])
  55.          F_Set(w,FA_Window_Open,TRUE)
  56.  
  57.          F_DoA(c,FM_Client_Run,NIL)
  58.  
  59.          F_DisposeObj(c)
  60.       ENDIF
  61.  
  62.       CloseLibrary(feelinbase)
  63.    ELSE
  64.       WriteF('Unable to open feelin.library\n')
  65.    ENDIF
  66. ENDPROC
  67.  
  68. PROC bandeau(title)
  69.    RETURN   TextObject,
  70.             FA_Inner,         [6,2,6,2]:CHAR,
  71.             FA_Frame,         003,
  72.             FA_Back,          FI_HalfShadow,
  73.             FA_FixedHeight,   TRUE,
  74.             FA_ChainToCycle,  FALSE,
  75.             FA_Text,          title,
  76.             FA_Text_PreParse, '`Se',
  77.             End
  78. ENDPROC
  79.